home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mac Format 2004 Junue - Disc 1
/
MacFormat 143 CD1.iso
/
Serious Software
/
Geo3D 2.1.2
/
Sample Scripts
/
Viewer Settings
< prev
next >
Wrap
Text File
|
2003-05-27
|
2KB
|
45 lines
tell application "Geo3D"
activate
set doc to make new document
if exists mode of doc then
set mode of doc to fly -- Viewer:Modes:Fly
set mode of doc to axes -- Viewer:Modes:Axes
set mode of doc to centerview -- Viewer:Modes:Center View (default)
end if
if exists modify of doc then
set modify of doc to upright -- Viewer:Modes:Remain Upright
set modify of doc to walk -- Viewer:Modes:Walk
set modify of doc to unmodified -- Viewer:Modes:Don't Modify (default)
end if
if exists pick of doc then
set pick of doc to goto -- Viewer:Modes:Go To/Set Center
set pick of doc to distance -- Viewer:Modes:Distance
set pick of doc to launch -- Viewer:Modes:Launch URL
set pick of doc to edit -- Viewer:Modes:Edit URL
set pick of doc to none -- Viewer:Modes:Don't Pick (default)
end if
if exists mousehorizontal of doc then
set mousehorizontal of doc to left -- Viewer:Mouse:Left/Right
set mousehorizontal of doc to roll -- Viewer:Mouse:Roll CCW/CW
set mousehorizontal of doc to yaw -- Viewer:Mouse:Yaw/Circle Left/Right (default)
end if
if exists mousevertical of doc then
set mousevertical of doc to up -- Viewer:Mouse:Up/Down
set mousevertical of doc to pitch -- Viewer:Mouse:Pitch/Circle Up/Down
set mousevertical of doc to zoom -- Viewer:Mouse:Zoom In/Out
set mousevertical of doc to forward -- Viewer:Mouse:Forward/Backward (default)
end if
if exists moving of doc then
set moving of doc to wireframerenderer -- Viewer:When Moving:QuickDraw 3D WireFrame
set moving of doc to interactiverenderer -- Viewer:When Moving:QuickDraw 3D Interactive
set moving of doc to asis -- Viewer:When Moving:As Is (default)
end if
if exists mainwindow of doc then
set mainwindow of doc to true -- Viewer:When Moving:Main Window Only
set mainwindow of doc to false -- Viewer:When Moving:Main Window Only (default)
end if
if exists renderer of doc then
set renderer of doc to wireframe -- Viewer:Renderer:QuickDraw 3D WireFrame
set renderer of doc to interactive -- Viewer:Renderer:QuickDraw 3D Interactive (default)
end if
end tell